home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
GETCRDRV.DEM
< prev
next >
Wrap
Text File
|
1994-07-02
|
253b
|
16 lines
program GetCrDrvSample;
uses crt, DMT;
var
Drive : byte;
begin
Color( 7, 0 );
clrscr;
Drive := GetCrDrv; { Call GetCrDrv function }
writeln( #13#10, 'The current drive is ', chr( 65 + Drive ), ':' );
GetEnter;
end.